Chip 2000 October/CHIP Turkiye Ekim 2000.iso/prog/share/52/setup.exe/XWP32R.Z/STARTAP.COM

Text File | 1998-03-13 | 897b | 34 lines

$ set noverify
$ define decw$login_norestart true
$!
$ IF P1 .EQS. "" THEN GOTO USAGE
$ transport ="tcpip"
$ string = f$element(2,".",P1)
$ IF string .EQS. "." THEN GOTO USAGE
$!
$ open/write output startap2.com
$ write output "$ define decw$login_norestart true"
$ write output "$ set display/create /node=''P1'/trans=''transport'"
$ write output "$ ON ERROR THEN CONTINUE"
$ write output "$ define sys$login ''f$trnlnm("sys$login")'"
$ write output "$ create/term/detach"
$ close output
$!
$ purge/keep=5 startap2.com
$ run sys$system:loginout.exe /detach -
                              /input=startap2.com -
                              /error=startap2.err -
                              /output=startap2.log
$ purge/keep=5 startap2.log
$ GOTO EXIT
$!
$USAGE:
$type sys$input
Usage:
    @startap <PC's IP address>
$ GOTO EXIT
$!
$EXIT:
$ SET NOVERIFY
$ exit